Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ViewWindow 1,127,0,1,63,0
Cls
ClrText
0A~Z
1Z
1O
Getkey
Locate 1,1,"ARCHERY V.1.0 AT PROD"
Locate 1,3,"PLAYERS ROUNDS DIST"
Locate 1,4," ONE TWO 30M"
Locate 1,5," TWO FIVE 50M"
Locate 1,6," TEN 70M"
Locate 1,7," TWENTY 90M"
1R
Lbl M
Locate 2,3+Z,""
Getkey
Ans=27Goto N
Ans=38Goto O
Ans=28 Or Ans=37Z+1Z
Ans=31Goto P
Z=31Z
Locate 2,5," "
Locate 2,4," "
Goto M
Lbl N
For 4I To 7
Locate 10,I," "
Next
Locate 10,3+R,""
Getkey
Ans=27Goto O
Ans=38Goto M
Ans=37R+1R
Ans=28R-1R
Ans=31Goto P
R=51R
R=04R
Goto N
Lbl O
For 4I To 7
Locate 18,I," "
Next
Getkey
Locate 18,3+O,""
Ans=27Goto M
Ans=38Goto N
Ans=31Goto P
Ans=28O-1O
Ans=371+OO
O=51O
O=04O
Goto O
Lbl P
Rtanh 10R
R=102R
R=205R
R=3010R
R=4020R
Otanh 3O
1P
1N
70C
Orange Text 5,C,"ARCHERY V 1.0 "
Text 10,C,"------------ "
Z=2Green Text 20,C,"PLAYER "
Z=2Text 20,115,"1"
Green Text 27,C,"SHOT "
Text 27,115,"1"
Green Text 34,C,"POINTS "
Text 34,115,"0"
Green Text 41,70,"LAST"
Text 41,115,"0"
Green Text 48,70,"AVERAGE"
Text 48,115,"0"
Green Text 55,70,"ROUNDS"
Text 55,115,R
Lbl 0
Int 13Ran#+1X
Int 7Ran#+1Y
2G~H
0A
Circle 32,32,30
F-Line 30,32,34,32
F-Line 32,30,32,34
Int 63Ran#+1r
Int 63Ran#+1
0F
While A78 And F-1
GetkeyA
Isz F
F=50Text 10,20,"HURRY UP"
F=65-1F
If A78
Then A=38-Int (12+O)Ran#
A=27+Int (12+O)Ran#
A=37r+Int (12+O)Ran#r
A=28r-Int (12+O)Ran#r
(3-(O8))Ran#<1Int ((10+O)Ran#-(5+O2)+rr
(3-(O8))Ran#<1Int ((10+O)Ran#-(5+O2)+
>6363
<11
r>6363r
r<11r
PxlOff G,H
Green PxlOn r,
rG
H
IfEnd
WhileEnd
Lbl 2
PxlOff G,H
Int ((32-((Abs (r-32))^Z+(Abs (-32))^Z))3)S
0M
S01M
F=-12M
For 1I To 63 Step 5
Text I,1," "
Next
Text 57,20," "
Text 48,10,""
Text 53,10,"#"
Text 53,13,"-)"
Text 53,58,"()"
Text 58,10,"^"
PxlOff 1,1
If M1
Then For 1I To 200
Next
For 3I To 36 Step 3
F-Line 21+I,9,24+I,9
Text 55,17+I," "
Next
IfEnd
If M=1
Then Text 53,58,"(-"
Text 53,58,"(-"
Text 53,58,"() "
IfEnd
M10S
M=2Text 10,10,"DISQUALIFIED"
For 1I To 11
Text 20,I," POINTS"
Next
For 2I To 20
Text I-1,43," "
Text I,43,S
Next
Text 34,115," "
Text 41,115," "
Text 48,115," "
If P=1
Then SL
S+TT
Int ((TN))E
Text 48,115,E
Text 41,115,S
N+1N
Text 34,115,T
IfEnd
If P=2
Then SU
S+VV
Int (V(N-1))W
Text 34,115,V
Text 41,115,U
Text 48,115,W
IfEnd
1I
12
While Getkey31
I+
20Ran#<18Ran#-4I
>62-(4Ran#)I
<-I+14Ran#I
Text 30,Int ," [PRESS EXE] "
WhileEnd
Text 30,Int ," "
If Z=1 Or (Z=2 And P=2)
Then Text 27,115,N
IfEnd
If Z=2
Then Text 34,115," "
Text 41,115," "
Text 48,115," "
P+1P
P=31P
Text 20,115,P
If P=1
Then 0I
Text 34,115,T
Text 41,115,L
Text 48,115,E
IfEnd
If P=2
Then Text 34,115,V
Text 41,115,U
Text 48,115,W
IfEnd
IfEnd
For 1I To 63 Step 5
Text I,1," "
Next
NR+1Goto 0
P=2 And N=R+1Goto 0
Lbl R
Cls
Text 1,20,"---@FINAL RESULTS@---"
Orange Text 18,13,"ROUNDS"
Orange Text 18,42,R
Text 18,50,"DISTANCE"
O=330O
O=650O
O=970O
O=1290O
Text 18,90,O
If Z=2
Then Orange Text 30,25,"PLAYER 1"
Orange Text 37,25,"PLAYER 2"
Green Text 24,61,"SCORE"
Green Text 24,90,"AVG."
Text 30,92,E
Text 37,92,W
Text 30,65,T
Text 37,65,V
V>TGreen Text 37,21,"!"
T>VGreen Text 30,21,"!"
IfEnd
If Z=1
Then Green Text 30,40,"SCORE"
Text 30,75,T
Green Text 36,40,"AVERAGE"
Text 36,75,Int (TR)
IfEnd